<%

Function formulario_checkbox(valor)

		If valor="" then
		
			valor = 0
		
		Else
		
			valor = 1
			
		End If
		
		formulario_checkbox = valor

End Function

Function formulario_checkbox_back(valor)

		If valor="" then valor=1

		If valor=0 then
		
			valor = ""
		
		Else
		
			valor = " checked"
			
		End If
		
		formulario_checkbox_back = valor

End Function
%>